home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 33 / Amiga Format AFCD33 (Issue 117, Dec 1998).iso / -seriously_amiga- / programming / other / pmanager / arexx / edit_file.ged next >
Text File  |  1998-09-14  |  1KB  |  61 lines
  1.  
  2. /*
  3.   Load file to GoldEd.
  4. */
  5.  
  6. OPTIONS RESULTS                             /* enable return codes     */
  7.  
  8. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  9.     address 'GOLDED.1'
  10.  
  11. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  12.  
  13. if (RC ~= 0) then
  14.     exit
  15.  
  16. OPTIONS FAILAT 6                            /* ignore warnings         */
  17.  
  18. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  19.  
  20. /* ------------------------- INSERT YOUR CODE HERE: -------------------- */
  21.  
  22.  
  23. PARSE ARG file
  24.  
  25. 'WINDOW ORDINAL 0 QUIET'
  26. 'QUERY DOC VAR WIN_NAME'
  27.  
  28. first_win_name = win_name
  29. file_already = 0
  30.  
  31. do until ((win_name = first_win_name) | (file_already = 1))
  32.  
  33.    if(win_name = file) then
  34.    do
  35.         file_already = 1
  36.    end
  37.    else do
  38.         'WINDOW NEXT QUIET'
  39.         'QUERY DOC VAR WIN_NAME'
  40.    end
  41. end
  42.  
  43. if(file_already = 1) then
  44.      'WINDOW USE 'FILE''
  45. else
  46.      'OPEN NAME 'FILE' SMART QUIET'
  47.  
  48. /* ---------------------------- END OF YOUR CODE ----------------------- */
  49.  
  50. 'UNLOCK' /* VERY important: unlock GUI */
  51. EXIT
  52.  
  53. SYNTAX:
  54.  
  55. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  56. 'UNLOCK'
  57. EXIT
  58.  
  59.  
  60.  
  61.